home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
pspa370a.zip
/
EXAMPL08.POM
< prev
next >
Wrap
Text File
|
1996-04-26
|
1KB
|
50 lines
;
; This file is similar to EXAMPL03.POM, but it uses the LOOKUP command.
;
;-------------------------------------------------------------------------------
;
MINLEN "1"
;
; Remove everything before and after the headings
;
IF $FLINE[ 1 11] = "-----------" THEN HdrCntr = HdrCntr+
IGNORE HdrCntr = ""
IGNORE HdrCntr = "3"
IGNORE HdrCntr = "4"
IGNORE $FLINE[ 34 41] = "PHONUMBR"
IGNORE $FLINE[ 1 11] = "-----------"
IGNORE Finished = "Y"
IF HdrCntr = "4" THEN Finished = "Y"
;
; Set page headings, with a top margin of one line
;
PAGELEN "55" "Y"
OUTHDG ""
OUTHDG "-------------------------------- -------- -------------"
OUTHDG "NAME OF BBS PHONENUM TYPE OF MODEM"
OUTHDG "-------------------------------- -------- -------------"
;
; Get modem type
;
SET Type = $FLINE[43 44]
;
; Ignore the slow ones
;
IGNORE Type = "30"
IGNORE Type = "12"
;
; Set up look-up file
;
LOOKFILE "EXAMPL08.TBL"
LOOKSPEC "Y" "Y" "Y"
LOOKCOLS "4" "5" "10" "50"
;
; Look up modem speed description
;
LOOKUP Speed = Type
;
; Output
;
SET Data = $FLINE[1 41]
OUTEND |{Data} {Speed}